home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.1 / card_23216.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  74 lines
  1. -- card: 23216 from stack: in.1
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 14090
  5. -- name: MergeStacks
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=159 top=244 right=274 bottom=364
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Merge Stacks
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global destination,source
  23.   if the optionkey is down then pass mouseup
  24.   put "Copy cards FROM which stack?"
  25.   put filename("STAK") into source
  26.   if source is empty then exit mouseUp
  27.   put "Paste cards TO the end of which stack?"
  28.   put filename("STAK") into destination
  29.   if destination is empty then exit mouseUp
  30.   answer "Merge stack " & quote & source & quote & " and " & quote & destination & quote & " ?" with "Merge" or "Cancel"                   --give user chance to bail out
  31.   if it = "Cancel" then exit mouseUp
  32.   show message box
  33.   put "After I'm done, I'll leave you at the merged stacks." into message
  34.   set lockScreen to true
  35.   go to stack source
  36.   repeat for the number of cards
  37.     domenu copy card
  38.     go next card
  39.     push card
  40.     go last card of destination
  41.     domenu paste card
  42.     pop card
  43.   end repeat
  44.   set lockScreen to false
  45.   go to stack destination
  46.   put "Merge Complete! You're at the beginning of stack " & destination
  47. end mouseUp
  48.  
  49.  
  50. -- part 2 (field)
  51. -- low flags: 01
  52. -- high flags: 0004
  53. -- rect: left=150 top=135 right=218 bottom=362
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: 
  62.  
  63.  
  64. -- part contents for background part 5
  65. ----- text -----
  66. 6
  67.  
  68. -- part contents for background part 12
  69. ----- text -----
  70. MergeStacks
  71.  
  72. -- part contents for card part 2
  73. ----- text -----
  74. This button will append one stack onto the end of another one.